home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / Isaac 0.24b.cpt / Isaac 0.24b ƒ / Isaac / background_49785.xml < prev    next >
Extensible Markup Language  |  1992-07-27  |  3KB  |  45 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>49785</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4491.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3283.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>483</left>
  23.             <top>14</top>
  24.             <right>512</right>
  25.             <bottom>63</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <true /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>1012</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Done</name>
  40.         <script>on mouseUptestDoneend mouseUp</script>
  41.     </part>
  42.     <name></name>
  43.     <script>On openBackgroundcreate menu "Isaac"put "Paste Picture,-,Grab PICT From Screen,Read EPSF File‚Ķ,Read MacPaint File‚Ķ," & ¬¨"Read PICT File‚Ķ,Read Resources From File‚Ķ,-,Gray It Out,Invert," & ¬¨"Polygonize,Reduce To Edge,Scale,Select Area,Rotate,Flip Horz," & ¬¨"Flip Vert,Edit BitMap,-,Print Picture,Save as File‚Ķ,Save As Resource‚Ķ" into IsaacListrepeat with i = 1 to the number of items in IsaacListput item i of IsaacList after menu "Isaac" with menuMessage "doIt " ¬¨& iend repeatshow menuBarput emptyend openBackgroundon closeBackgroundhide menuBardelete menu "Isaac"hide msg boxend closeBackgroundon doIt mItemput "0,,____Grab PICT From Screen‚Ķ,____Read EPSF File‚Ķ,____Read" & ¬¨" MacPaint File‚Ķ,____Read PICT File‚Ķ,____Read Resources From File‚Ķ," & ¬¨",PICTGray it Out,PICTInvert,PICTPolygonize,PICTReduce to edge," & ¬¨"PICTScale Picture‚Ķ,PICTSelect Area‚Ķ,CallCNV@PICTRotate,1,2,3,,PICTPrint Picture,PICTSave As File‚Ķ,4" ¬¨into commandListget item mItem of commandListif it is not a number thenCast it, trueput "Cast " & quote & it & quote & ", true"else if it is 0 thendoMenu "Paste Picture"else if it is 1 thenCast "PICT>bmap",trueif the result is empty then Cast "bmapFlip Horiztonal", trueif the result is empty then Cast "bmap>PICT", trueif the result is empty thenput "Clipboard is Flipped!"end ifelse if it is 2 thenCast "PICT>bmap",trueif the result is empty then Cast "bmapFlip Vertical", trueif the result is empty then Cast "bmap>PICT", trueif the result is empty thenput "Clipboard is Flipped!"end ifelse if it is 3 thenCast "PICT>bmap",trueif the result is empty then Cast "bmapEdit‚Ķ", trueif the result is empty then Cast "bmap>PICT", trueif the result is empty thenput "Editing Saved!"end ifelse if it is 4 thenanswer "Save PICT resource into New or Old File?" with "New" or "Old"if it is "New" then put false into oldFileelse put true into oldfileCast "****Save as Resource‚Ķ","PICT",trueif the result is empty thenput "Cast " & quote & "****Save as Resource‚Ķ" & quote & ", " & ¬¨quote & "PICT" & quote & ", true, " & oldFileend ifend ifend doIt</script>
  44. </background>
  45.